VERSION = 3.00pgfhostPixelsClass1 pageframepgfhost|ErasePage = .T. PageCount = 1 Width = 241 Height = 169 Name = "pgfhost" Page1.Caption = "Page1" Page1.Name = "Page1"  pageframe)MS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0 cmdcyclePixelsClass1 commandbuttoncmdcycle#ncaptionelement ^acaption[10,0] / %? mU %&TC 6%CCCnTTCT(None)UTHISNCAPTIONELEMENTACAPTIONCAPTION ( i%CCCeTCT!%T(None)UTHISIACAPTIONCAPTIONNCAPTIONELEMENTC%CO&Ta<T-UTHISFORMVPARENTTHISENABLEDClick,InitRefresh1!aAAAAA3qAAAA!AAA3A1  ;&{)Height = 27 Width = 84 FontBold = .T. FontName = "MS Sans Serif" Caption = "Command1" ncaptionelement = 0 Name = "cmdcycle"  commandbuttonPROCEDURE Click WITH This IF .nCaptionElement # 0 .nCaptionElement=IIF(.nCaptionElement=10,1,.nCaptionElement+1) IF VARTYPE(.aCaption(.nCaptionElement)) # "C" .nCaptionElement=1 ENDIF .Caption=.aCaption(.nCaptionElement) ELSE .Caption="(None)" ENDIF ENDWITH ENDPROC PROCEDURE Init WITH This FOR i = 1 TO 10 IF VARTYPE(.aCaption(i)) == "C" .Caption=.aCaption(i) .nCaptionElement=i EXIT ENDIF ENDFOR IF .nCaptionElement=0 .Caption="(None)" ENDIF ENDWITH ENDPROC PROCEDURE Refresh IF VARTYPE(ThisForm.vParent) = "O" This.Enabled=.T. ELSE This.Enabled=.F. ENDIF ENDPROC formsetformset lstchoicesName = "lstchoices" formformPixelsform1 lstchoices3DoCreate = .T. Caption = "Form1" Name = "form1"  lstchoicesformset2Class lstchoices!Arial, 0, 9, 5, 15, 12, 32, 3, 0 comboboxcombobox cbochoices/Height = 24 Width = 100 Name = "cbochoices"  cbochoicescombobox1ClassPixels cbochoices!Arial, 0, 9, 5, 15, 12, 32, 3, 0 comboboxcombobox cbochoices]FontBold = .T. Height = 24 SpecialEffect = 2 Style = 2 Width = 100 Name = "cbochoices"  cbochoicescombobox1ClassPixels cbochoices!Arial, 1, 9, 6, 15, 12, 32, 3, 0  commandgroup commandgroupcmghost^ButtonCount = 2 Value = 1 Height = 66 Width = 94 Name = "cmghost" Command1.Top = 5 Command1.Left = 5 Command1.Height = 27 Command1.Width = 84 Command1.Caption = "Command1" Command1.Name = "Command1" Command2.Top = 34 Command2.Left = 5 Command2.Height = 27 Command2.Width = 84 Command2.Caption = "Command2" Command2.Name = "Command2" cmghost commandgroup1ClassPixelscmghost!Arial, 0, 9, 5, 15, 12, 32, 3, 0  commandgroup commandgroupcmghost^ButtonCount = 2 Value = 1 Height = 66 Width = 94 Name = "cmghost" Command1.Top = 5 Command1.Left = 5 Command1.Height = 27 Command1.Width = 84 Command1.Caption = "Command1" Command1.Name = "Command1" Command2.Top = 34 Command2.Left = 5 Command2.Height = 27 Command2.Width = 84 Command2.Caption = "Command2" Command2.Name = "Command2" cmghost commandgroup1ClassPixelscmghost!Arial, 0, 9, 5, 15, 12, 32, 3, 0  commandbutton commandbutton cmdplusminusFHeight = 27 Width = 84 Caption = "Command1" Name = "cmdplusminus"  cmdplusminus commandbutton1ClassPixels cmdplusminus!Arial, 0, 9, 5, 15, 12, 32, 3, 0  commandbutton commandbutton cmdplusminusQHeight = 20 Width = 20 Caption = "" SpecialEffect = 2 Name = "cmdplusminus"  cmdplusminus commandbutton1ClassPixels cmdplusminus!Arial, 0, 9, 5, 15, 12, 32, 3, 0  commandgroup commandgroupcmghostAutoSize = .T. MemberClassLibrary = libmember.vcx MemberClass = "cmdplusminus" ButtonCount = 2 BorderStyle = 0 Value = 1 Height = 30 Width = 53 Name = "cmghost" Cmdplusminus1.Top = 5 Cmdplusminus1.Left = 5 Cmdplusminus1.FontBold = .T. Cmdplusminus1.Caption = "+" Cmdplusminus1.Name = "Cmdplusminus1" Cmdplusminus2.Top = 5 Cmdplusminus2.Left = 28 Cmdplusminus2.FontBold = .T. Cmdplusminus2.Caption = "-" Cmdplusminus2.Name = "Cmdplusminus2" cmghost commandgroup1ClassPixelscmghost!Arial, 1, 9, 6, 15, 12, 32, 3, 0 comboboxcombobox cbochoices]FontBold = .T. Height = 24 SpecialEffect = 2 Style = 2 Width = 100 Name = "cbochoices" /PROCEDURE Init This.Selected(1)=.T. ENDPROC  Q%WkeUTaUTHISSELECTEDInit,1A1$) cbochoicescombobox1ClassPixels cbochoices!Arial, 1, 9, 6, 15, 12, 32, 3, 0 comboboxcombobox cbochoices]FontBold = .T. Height = 24 SpecialEffect = 2 Style = 2 Width = 100 Name = "cbochoices" 9PROCEDURE Init This.DisplayValue=This.List(1) ENDPROC  d%dxrUTCUTHIS DISPLAYVALUELISTInit,1q1.) cbochoicescombobox1ClassPixels cbochoices!Arial, 1, 9, 6, 15, 12, 32, 3, 0